home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / wb / DefIcons44.lha / DefIcons44 / Install < prev    next >
Text File  |  2000-06-23  |  3KB  |  173 lines
  1. ; $VER: Installer script for DefIcons44 1.4 (23.06.00) © 1999/2000 by Stephan Rupprecht
  2.  
  3. ;--- localize strings ----
  4. (if (= @language "deutsch")
  5. (
  6.     (set #wrongver "DefIcons44 benötigt OS3.5 oder besser !!!")
  7.     (set #askdir_mainprg "Wohin soll das Hauptprogramm (DefIcons44) kopiert werden?")
  8.     (set #askdir_prefs "Bitte wählen Sie das Zielverzeichnis für das Voreinstellungsprogramm")
  9.     (set #copy_config "Soll eine der mitgelieferten deficons.prefs Dateien installiert werden?")
  10.     (set #std_prefs "Standard (langsam aber genau)")
  11.     (set #alt_prefs "Optimiert (schnell, nicht so genau)")
  12.     (set #no_prefs "Diesen Teil überspringen")
  13. )
  14. (
  15.     
  16.     (set #wrongver "DefIcons44 requires OS3.5 or better !!!")
  17.     (set #askdir_mainprg "Please select the destination drawer for DefIcons44")
  18.     (set #askdir_prefs "Please select the drawer for the preferences editor")
  19.     (set #copy_config "Do you wish to install one of the supplied deficons.prefs files?")
  20.     (set #std_prefs "Standard (slow but accurate)")
  21.     (set #alt_prefs "Optimized (fast, not so accurate)")
  22.     (set #no_prefs "Skip this part")
  23. )
  24. )
  25.  
  26. ;--- check os version ---
  27. (set #vernum (getversion "workbench.library" (resident)))
  28. (set #vernum (/ #vernum 65536))
  29.  
  30. (if(< #vernum 44)
  31.     (abort #wrongver)
  32. )
  33.  
  34. ;--- askdir for main program ---
  35. (set @default-dest
  36.     (askdir
  37.         (prompt #askdir_mainprg)
  38.         (help @askdir-help)
  39.         (default "SYS:WBStartup")
  40.     )
  41. )
  42.  
  43. ;--- askdir for prefs program ---
  44. (set #prefs-dir
  45.     (askdir
  46.         (prompt #askdir_prefs)
  47.         (help @askdir-help)
  48.         (default "SYS:Prefs")
  49.     )
  50. )
  51.  
  52. ;--- copy mainprg ---
  53. (copyfiles
  54.     (help @copyfiles-help)
  55.     (source "DefIcons44")
  56.     (dest @default-dest)
  57. )
  58.  
  59.  
  60. ;--- copy .info file if neccessary ---
  61. (set #info_path (tackon @default-dest "DefIcons44.info") )
  62.  
  63. (if (not (exists #info_path) )
  64.     (copyfiles
  65.         (help @copyfiles-help)
  66.         (source "DefIcons44.info")
  67.         (dest @default-dest)
  68.     )
  69. )
  70.  
  71. ;--- copy prefsed ---
  72. (copyfiles
  73.     (help @copyfiles-help)
  74.     (source "DefIconsPrefs")
  75.     (dest #prefs-dir)
  76. )
  77.  
  78. ;--- copy catalog ---
  79. (if (NOT (= @language "english")) 
  80. (
  81.     (set #src_name
  82.         (tackon "Catalogs/" @language)
  83.     )
  84.  
  85.     (set #dst_name
  86.         (tackon "LOCALE:" #src_name)
  87.     )
  88.  
  89.     (set #src_name
  90.         (tackon #src_name "deficonsprefs.catalog")
  91.     )
  92.  
  93.     (if (exists #src_name (noreq))
  94.     (
  95.         (copyfiles
  96.             (help @copyfiles-help)
  97.             (source #src_name)
  98.             (dest #dst_name)
  99.         )
  100.     )
  101.         (message "Sorry, there is no " @language " catalog available at the moment!")
  102.     ) 
  103. )
  104. )
  105.  
  106. ;--- copy .info file if neccessary ---
  107. (set #info_path (tackon #prefs-dir "DefIconsPrefs.info") )
  108.  
  109. (if (not (exists #info_path) )
  110.     (copyfiles
  111.         (help @copyfiles-help)
  112.         (source "DefIconsPrefs.info")
  113.         (dest #prefs-dir)
  114.     )
  115. )
  116.  
  117. ;--- copy deficons.prefs ? ---
  118. (if (exists "envarc:deficons.prefs")
  119. (
  120.     (set defchoice 0)
  121. )
  122. (
  123.     (set defchoice 1)
  124. )
  125. )
  126.  
  127. (set res (askchoice
  128.         (prompt #copy_config)
  129.         (help @askchoice-help)
  130.         (choices #no_prefs #std_prefs #alt_prefs)
  131.         (default defchoice)
  132.     )
  133. )
  134.  
  135. (if (> res 0)
  136.     (if (= res 1)
  137.     (
  138.         (copyfiles
  139.             (help @copyfiles-help)        
  140.             (source "deficons.prefs")
  141.             (dest "envarc:")
  142.         )
  143.     )
  144.     (
  145.         (copyfiles
  146.             (help @copyfiles-help)        
  147.             (source "alt/deficons.prefs")
  148.             (dest "envarc:")
  149.         )
  150.     )
  151.     )
  152. )
  153.  
  154. ;--- copy processfile.rexx ...
  155.  
  156. (if (not (exists "REXX:ProcessFile.REXX") )
  157.     (copyfiles
  158.         (help @copyfiles-help)
  159.         (source "s/ProcessFile.REXX")
  160.         (dest "REXX:")
  161.     )
  162. )
  163.  
  164. ;--- and DoMIME
  165.  
  166. (copyfiles
  167.     (help @copyfiles-help)
  168.     (source "DoMIME")
  169.     (dest "C:")
  170. )
  171.  
  172. ;--- eof ---
  173.